home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boosters.arc / XFINDSTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-07  |  266 b   |  16 lines
  1. {$IBoDecl}
  2. {$IFindStr}
  3. {$IGetStr}
  4. {$IPutStr}
  5.  
  6. BEGIN
  7.    Randomize;
  8.    ClrScr;
  9.    PutStr (v,'I AM VERTICAL',Random(80)+1,1,7);
  10.    findStr ( 1,1 ,'I',0,Ecode);
  11.    GetStr (v,S,0,0,13);
  12.    read;
  13.    insert ('NO LONGER ',S,6);
  14.    PutStr (h,S,1,15,14);
  15.  
  16. END.